home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 2 / Gekikoh Dennoh Club Vol. 2 (Japan).7z / Gekikoh Dennoh Club Vol. 2 (Japan) (Track 01).bin / fsw / zm302 / zm302_l.lzh / ZMPRTERROR.HAS < prev    next >
Text File  |  1996-03-03  |  946b  |  41 lines
  1.     .xdef    _zm_print_error
  2.  
  3.     .include    zmid.mac
  4.     .include    zm3lib.mac
  5.     .include    doscall.mac
  6.     .include    iocscall.mac
  7. *-----------------------------------------------------------------------------
  8. *    int    zm_print_error( int mode,int lang,int noferr,
  9. *                char *ZMD,char *srcaddr,char *srcname,
  10. *                char *errtbl
  11. *                char **buff);
  12. *-----------------------------------------------------------------------------
  13. _zm_print_error:
  14.     move.l    sp,a0
  15.     movem.l    a3-a5,-(sp)
  16.     move.w    param1+2(a0),d1
  17.     swap    d1
  18.     move.w    param2+2(a0),d1
  19.     move.l    param3(a0),d2
  20.     move.l    param4(a0),a1        **ZMD
  21.     tst.b    (a1)
  22.     bne    @f
  23.     suba.l    a1,a1            *no ZMD name
  24. @@:
  25.     move.l    param5(a0),a2        *srcaddr
  26.     tst.l    (a2)
  27.     bne    @f
  28.     suba.l    a2,a2
  29. @@:
  30.     move.l    param6(a0),a3        *srcname
  31.     tst.b    (a3)
  32.     bne    @f
  33.     suba.l    a3,a3            *no srcname
  34. @@:
  35.     move.l    param7(a0),a5        *err tbl addr
  36.     move.l    param8(a0),a4
  37.     Z_MUSIC    #ZM_PRINT_ERROR        *a4=**buff
  38.     move.l    a0,(a4)
  39.     movem.l    (sp)+,a3-a5
  40.     rts
  41.